home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / grafik / rtg-master / install_rtgmaster < prev    next >
Text File  |  1998-01-15  |  5KB  |  126 lines
  1. (set #UpDateNo    "Do not update")
  2. (set #UpDateIfNew "Update, if newer")
  3. (set #AlwaysUpDate  "Update Always.")
  4. (set #installwhat "What do you install of the Following?")
  5. (set #guidedocs "AmigaGuide File")
  6. (set #WhereToPut "Select where to put the files.\n(A directory called \"RTGMaster_User\" will be created at that place!)")
  7. (set #ctp "Install the rtgmaster c2p package ?")
  8. (set #install "RtgMaster c2p Package")
  9. (set #Demos "RtgMaster Demos")
  10. (set #Nope "No")
  11. (set #Yeah "Yes")
  12. (set app-name "Rtgmaster")
  13. (if(<(/(getversion)65536)36)
  14. (abort "Rtgmaster needs at least OS2.0\n"))
  15. (complete 0)
  16. (if(not(exists("libs:rtg")))
  17. (makedir("libs:rtg")(infos)))
  18. (if(not(exists("libs:rtgc2p")))
  19. (makedir("libs:rtgc2p")(infos)))
  20. (if(askchoice(choices #Nope #Yeah)
  21. (prompt("Do you want to delete any old versions of rtgmaster? \nThis is recommended, if old versions did not run on your system.\n"))
  22. (help "")(default 1))
  23. ((delete "libs:rtg/#?")
  24. (delete "libs:rtgmaster.library")
  25. (delete "libs:rtgc2p/c2p-garbage/#?")
  26. (delete "libs:rtgc2p/strange_c2p/#?")
  27. (delete "libs:rtgc2p/#?")
  28. (delete "envarc:rtgmaster/#?")
  29. (delete "env:rtgmaster/#?")))
  30. (set rtg1 (/(getversion "libs:rtgmaster.library")65536))
  31. (set rtg2 (-(getversion "libs:rtgmaster.library")(* rtg1 65536)))
  32. (set rtg3 (/(getversion "libs/rtgmaster.library")65536))
  33. (set rtg4 (-(getversion "libs/rtgmaster.library")(* rtg3 65536)))
  34. (set upd (askchoice
  35. (choices #UpDateNo #UpDateIfNew #AlwaysUpDate)
  36. (help "rtgmaster.library is the main-library of rtgmaster. You HAVE TO install it. ")
  37. (default 1)
  38. (prompt("Currently installed rtgmaster.library :\nVersion : %ld.%ld\n\nVersion from Update : %ld.%ld\n\nInstall Version %ld.%ld of 'rtgmaster.library' from Update ?\n" rtg1 rtg2 rtg3 rtg4 rtg3 rtg4))))
  39. (if(= upd 1)(copylib (source "libs/rtgmaster.library")(dest "libs:")))
  40. (if(= upd 2)(copyfiles
  41. (prompt("Copying now 'rtgmaster.library' to Libs:"))
  42. (source"libs/rtgmaster.library")
  43. (dest"libs:")(confirm)(infos)(help "")))
  44. (complete 20)
  45. (set upd (askchoice
  46. (choices #Nope #Yeah)
  47. (prompt("Sublibraries :\nDo you wish to install the needed Sublibraries ?\nThis is recommended, because rtgmaster won't work without them.\n"))
  48. (help "In order to work rtgmaster needs the sublibraries.")
  49. (default 1)))
  50. (set rtg1(/(getversion "libs:cgxsystem.library")65536))
  51. (if(= upd 1)
  52. ((if(> rtg1 0)
  53. (copyfiles
  54. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  55. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  56. (confirm)(infos)(help "")(set upd 2)))))
  57. (set rtg1(/(getversion "libs:egs.library")65536))
  58. (if(= upd 1)
  59. ((if(> rtg1 0)
  60. (copyfiles
  61. (prompt "Copying now 'rtgEGS.library' to Libs:rtg")
  62. (source "libs/rtg/rtgEGS.library")(dest "libs:rtg")
  63. (confirm)(infos)(help "")))))
  64. (set rtg1(/(getversion "libs:cybergraphics.library")65536))
  65. (if(= upd 1)
  66. ((if(> rtg1 0)(copyfiles
  67. (prompt "Copying now 'rtgCGX.library' to Libs:rtg")
  68. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg:")
  69. (confirm)(help "")(infos)(set upd 2)))))
  70. (set rtg1(/(getversion "libs:Picasso96API.library")65536))
  71. (if(= upd 1)
  72. ((if(> rtg1 2)(copyfiles
  73. (prompt "Copying now 'rtgP96.library' to Libs:Rtg")
  74. (source "libs/rtg/rtgP96.library")(dest "libs:rtg")
  75. (help "")(confirm)(infos)(set upd 2)))))
  76. (set rtg1(/(getversion "libs:hrgsystem.library")65536))
  77. (if(= upd 1)
  78. ((if(> rtg1 0)
  79. (copyfiles
  80. (prompt "Copying 'libs:rtg/rtgCGX.library' to Libs:Rtg")(help "")
  81. (source "libs/rtg/rtgCGX.library")(dest "libs:rtg")
  82. (confirm)(infos)(set upd 2)))))
  83. (if(= upd 1)
  84. ((copyfiles (help "")
  85. (prompt "Copying now 'libs:rtg/rtgAMI.library' to Libs:rtg")
  86. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  87. (confirm)(infos))))
  88. (if(= upd 2)
  89. ((copyfiles
  90. (prompt "Copying npw 'libs:rtg/rtgAMI.library' to Libs:rtg")
  91. (source "libs/rtg/rtgAMI.library")(dest "libs:rtg")
  92. (help "")(confirm)(infos))))
  93. (complete 50)
  94. (set Additional(askoptions(choices #guidedocs #demos)
  95. (help "")(prompt #installwhat)(default 3)))
  96. (if(<> Additional 0)
  97. ((set RtgMaster(askdir(prompt #WhereToPut)
  98. (help   #WhereToPut)
  99. (default "Sys:")))
  100. (if(< (exists(tackon RtgMaster "RtgMaster_User")) 2)
  101. (makedir(tackon RtgMaster "RtgMaster_User")(infos)))
  102. (set whereput(tackon RtgMaster "RtgMaster_User"))
  103. (set @default-dest RtgMaster)
  104. (if (IN Additional 0)
  105. (((copyfiles(source "rtgmaster_user.guide")(dest whereput)(infos)(help "")(newname "rtgmaster_user.guide")))))
  106. (complete 60)
  107. (if(IN Additional 1)
  108. ((if(< (exists(tackon whereput "Demos"))2)
  109. (makedir(tackon whereput "Demos")(infos)))
  110. (copyfiles(source "demos")(help "")(dest(tackon whereput "demos"))(all))))
  111. (complete 80)
  112. (set RtgMaster whereput)
  113. (set c2p(askoptions(choices #install)(prompt "\nThe c2p algorithms are needed for ECS/AGA\nDo you wish to install them ?\n")
  114. (help #install)(default 1)))
  115. (if(IN c2p 0)((copyfiles(source "libs/rtgc2p")(help"")(dest("libs:rtgc2p"))(all))))))
  116. (complete 100)
  117. (exit "You should reboot now. "
  118.       "Check your devs:monitors directory, if you have "
  119.       "installed a monitor driver there. GFX Board users "
  120.       "always have something installed there, ECS/AGA "
  121.       "users not always. If you are a ECS/AGA user "
  122.       "and do not have something installed there, "
  123.       "please copy PAL or NTSC from sys:Storage to "
  124.       "devs:monitors. ")
  125.  
  126.